home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side A).zip / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side A).do / KICK.IT.OFF.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  33 lines
  1. 10  REM  KICK.IT.OFF
  2. 15 D$ =  CHR$(4)
  3. 20  TEXT : HOME 
  4. 30  VTAB 2: HTAB 6: PRINT "SOFTDISK MAGAZETTE    FEB 83"
  5. 35  VTAB 5: HTAB 10: PRINT "1 = COVER PAGE"
  6. 40  VTAB 7: HTAB 10: PRINT "2 = ABOUT SOFTDISK"
  7. 60  VTAB 9: HTAB 10: PRINT "3 = SOFTWARE POLL"
  8. 70  VTAB 11: HTAB 10: PRINT "4 = SOFT PALS"
  9. 81  VTAB 13: HTAB 10: PRINT "5 = SOFT ADS"
  10. 85  VTAB 15: HTAB 10: PRINT "6 = SOUND EFFECTS"
  11. 86  VTAB 17: HTAB 10: PRINT "7 = TEN MINUTE RECITAL"
  12. 87  VTAB 19: HTAB 10: PRINT "8 = ON WITH THE SHOW"
  13. 88  VTAB 21: HTAB 10: PRINT "9 = QUIT"
  14. 89  VTAB 23: HTAB 3: PRINT "WHICH? ";: GET R$: PRINT R$
  15. 90  IF R$ = "1" GOTO 1000
  16. 100  IF R$ = "2" GOTO 2000
  17. 110  IF R$ = "3" GOTO 3000
  18. 120  IF R$ = "4" GOTO 4000
  19. 130  IF R$ = "5" GOTO 5000
  20. 135  IF R$ = "6" GOTO 6000
  21. 140  IF R$ = "7" GOTO 7000
  22. 150  IF R$ = "8" GOTO 8000
  23. 160  IF R$ = "9" GOTO 9000
  24. 200  GOTO 88
  25. 1000  PRINT D$;"RUN FEB 83.COVER"
  26. 2000  PRINT D$;"RUN ABOUT.SOFTDISK"
  27. 3000  PRINT D$;"RUN SOFTWARE.POLL"
  28. 4000  PRINT D$;"RUN SOFT.PALS"
  29. 5000  PRINT D$;"RUN SOFT.ADS"
  30. 6000  PRINT D$;"RUN SOUND.EFFECTS"
  31. 7000  PRINT D$;"RUN PLAYER PROGRAM"
  32. 8000  PRINT D$;"RUN SOFTDISK.PROG"
  33. 9000  TEXT : HOME : VTAB 12: HTAB 1: PRINT "DON'T FORGET TO BOOT OTHER SIDE OF DISK."